%%BeginResource: pdfasc.prc
%%Version: 4.0 2
%%Copyright: Copyright 1992-1997 Adobe Systems Incorporated. All Rights Reserved.
/AS {
9 dict begin
/shrink? xdd
/Pury xdd
/Purx xdd
/Plly xdd
/Pllx xdd
gsave newpath clippath pathbbox newpath grestore
/Dury xdd
/Durx xdd
/Dlly xdd
/Dllx xdd
Durx Dllx sub Dury Dlly sub
Pury Plly sub div exch Purx Pllx sub div
2 copy gt { exch } if pop
Durx Dllx add 2 div Dury Dlly add 2 div translate
shrink? { dup scale } { pop } ifelse
Purx Pllx add -2 div Pury Plly add -2 div translate
end
} [/shrink? /Pury /Purx /Plly /Pllx /Durx /Dury /Dllx /Dlly]
bld
%%EndResource